home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #14
/
Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO
/
bbs_door
/
ant12.zip
/
ANTENNA.WCX
(
.txt
)
< prev
next >
Wrap
Wildcat! WCX
|
1996-01-17
|
2KB
|
124 lines
'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx 2126 bytes 01/28/123 10:14:08pm
'! Code Segment Size :1158 bytes
'! Data Segment Size :4495 bytes
'! String Segment Size:968 bytes
'! Compiled with WCC version 4.11
Declare Sub Sub900(i65534 As Integer, s65532 As String, s65530 As String)
Dim s4463 As String
Dim s4467 As String
Dim s4471 As String
Dim s4475 As String
Dim s4479 As String
Dim r4483 As Real
Dim s65526_ As String '! Temporary
Dim s65530_ As String '! Temporary
Dim i65534_ As Integer '! Temporary
s4463 = "antenna.cfg"
If Exists(ProgPath + s4463) Then
Open ProgPath + s4463 For Input As 2
Input #2, s4467
Input #2, s4471
Input #2, s4475
Input #2, s4479
Close 2
GoTo 385
Else
136 Cls
Print "Looking for antenna.cfg............"
Print
Print "There appears to be no config file present"
Print
Print "The file is antenna.cfg and if a file of that name exist it will"
Print "be overwritten. It must be in the directory with antenna.wcx"
Print
If InputYesNo("Do you wish to create one ", 1213417543) Then
Cls
Print
Print "What is the SysOp Name ?"
Print "";
Input s4467
Print
Print "What is the BBS Name ?"
Print "";
Input s4471
Print
Print "What is the path to your Display file (antenna.bbs) "
Print
Print "for example C:\WILDCAT\ANTENNA.BBS"
Print
Print "";
Input s4475
Print
Print "Who's name should users send messages to about Ham Radio?"
Print "";
Input s4479
Open ProgPath + s4463 For Output As 2
Print #2, s4467
Print #2, s4471
Print #2, s4475
Print #2, s4479
Close 2
End If
End If
Do
385 Cls
Locate 1, 13
Print "@0B@"; s4471 + " @0B@ BBS" + " @0F@ version 1.2@0B@ Sysop@0F@ " + s4467
If ANSIDetected Then
DisplayTextFile(s4475)
End If
447
Sub900((10), ("This will get you in the ballpark. Final trimming will be nessassary"), ("@0B@"))
Locate 14, 10
Print "Input your frequency in megacycles... 0 to return to BBS ";
Locate 20, 17
Print "Ask@87@ "; s4479; "@0A@ about becomming a Ham@03@"
Locate 14, 67
Input r4483
If r4483 <= 0 Then
GoTo 862
End If
593 ActivityLog "----> Ran Antenna program online....."
Cls
MorePrompt(0)
Locate 1, 13
Print "@0B@"; s4471 + " @0B@ BBS" + " @0F@ version 1.2@0B@ Sysop@0F@ " + s4467
If ANSIDetected Then
DisplayTextFile(s4475)
End If
668 Locate 10, 10
Print " The length should be approximatly "; 468 / r4483; " feet."
Locate 11, 10
Print " or "; 468 / r4483 * 12; " in."
Locate 13, 10
Print " The length of wire in a folded dipole "; 960 / r4483; " feet."
Locate 14, 10
Print " or "; 960 / r4483 * 12; " inches."
Locate 17, 10
If (InputYesNo("Would you like to figure another antenna? Y/N ", 1213417543)) = 0 Then GoTo 862
Loop
862 End
End
'! Called 1 time
Sub Sub900(i65534 As Integer, s65532 As String, s65530 As String)
Dim l65522 As Long
Dim i65526 As Integer
Dim i65528 As Integer
s65532 = s65532 + " "
s65532 = Left(s65532, Int(Len(s65532) / 2) * 2)
Print "@NOPAUSE@" + s65530
1021 For i65528 = 1 To Len(s65532) / 2 Step 1
Delay 0.03
Locate i65534, 40 - i65528
Print Left(s65532, i65528); Right(s65532, i65528)
Next
1155
End Sub